home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Purity / Purity #42 (1995-01)(PackMAN)(DE)[WB].zip / Purity #42 (1995-01)(PackMAN)(DE)[WB].adf / Includes3v1 / Includes3v1.lha / Graphics / GFX.i < prev    next >
Text File  |  1994-12-04  |  966b  |  49 lines
  1. {
  2.         GFX.i for PCQ Pascal
  3.  
  4.         General graphics include file for application programs 
  5. }
  6.  
  7. const
  8.  
  9.     BITSET      = $8000;
  10.     BITCLR      = 0;
  11.  
  12. type
  13.  
  14.     Rectangle = record
  15.         MinX,MinY       : Short;
  16.         MaxX,MaxY       : Short;
  17.     end;
  18.     RectanglePtr = ^Rectangle;
  19.  
  20.     Rect32 = Record
  21.         MinX,MinY       : Integer;
  22.         MaxX,MaxY       : Integer;
  23.     end;
  24.     Rect32Ptr = ^Rect32;
  25.  
  26.     Point = record
  27.         x,y     : Short;
  28.     end;
  29.     PointPtr = ^Point;
  30.  
  31.     PLANEPTR = Address;
  32.  
  33.     BitMap = record
  34.         BytesPerRow     : Short;
  35.         Rows            : Short;
  36.         Flags           : Byte;
  37.         Depth           : Byte;
  38.         pad             : Short;
  39.         Planes          : Array [0..7] of PLANEPTR;
  40.     end;
  41.     BitMapPtr = ^BitMap;
  42.  
  43. Procedure InitBitMap(bm : BitMapPtr; depth : Byte; width, height : Short);
  44.     External;
  45.  
  46. Function RASSIZE(w,h : Short) : Integer;   { not a graphics.library call }
  47.     External;
  48.  
  49.